﻿<!--#include file="mymin.asp"-->
<title>添加友链</title></head><body><div class='main400'>
<%

dim selectmenu
set rs=server.createobject("adodb.recordset")
rs.open "select classid,class from 74hu_linkc order by classid",myconn,3,1
if not rs.eof then
	Do While not rs.eof
		selectmenu=selectmenu&"<option value="""&rs("classid")&""">"&rs("class")&"</option>"
		rs.MoveNext
	Loop
	call link_(selectmenu)
else
	w "请先添加类别后，再添加友链<br/>"
end if
rs.close
set rs=nothing

sub link_(ex)
%>
<form method="post" action="Links_addcl.asp?sid=<%=sid%>">
友链名称:<input name="name" maxlength="10" size="10" value=""/><br/>
友链简称:<input name="short" maxlength="2" size="10" value=""/><br/>
网址(需http://):<input name="link" maxlength="200" value="http://"/><br/>
网站分类:<select name="class" value="1"><%=ex%></select><br/>
<input type="submit" value="确认提交"/>
</form>
<%end sub%>
<br/>----------<br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链管理]</a>
<%call Last2%>